home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / RDBMS72 / SETNLS.VRF < prev    next >
Encoding:
Text File  |  1995-10-13  |  9.6 KB  |  233 lines
  1. /* Copyright (c) Oracle Corporation 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     setnls.vrf - V3 common starter database nls script for NetWare products
  5.  
  6.   DESCRIPTION
  7.    Inputs:
  8.       nls_language - In order to get defaults.
  9.       getnls - TRUE, prompts the user for character set. 
  10.                FALSE, just uses the defaults.
  11.  
  12.    Outputs:
  13.       starter_language  - The Language of the starter database
  14.       starter_territory - The territory if the starter database
  15.       starter_charset   - The characterset of the starter database
  16.       starter_type      - The characterset type of the starter database
  17.  
  18.   OWNER
  19.     Greg Dudey
  20.  
  21.   MODIFIED    DD-MMM-YY  Reason
  22.     LMurphy   08/30/95 - Modified to check to see whether nls_language
  23.              is set, if not tranlsate nls_lang
  24.     gdudey    07/25/95 - Change seed to starter
  25.     gdudey    06/20/95 - Creation
  26. *****************************************************************************/
  27. {
  28.  
  29.       /* Determine the character set for the starter database */
  30.    
  31.    {
  32.       get_nls_lang = FALSE;
  33.       { nls_language = nls_language; }
  34.       [ 'UNBOUND_VARIABLE: get_nls_lang = TRUE; ]
  35.       if (get_nls_lang)
  36.       {
  37.         {
  38.           nls_language = v7_translate("NLS_LANG");
  39.                 }
  40.         [ 'OS_ERROR,'INVALID_FILE_NAME,
  41.           'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
  42.           {
  43.             nls_language = "AMERICAN.AMERICA.WE8ISO559P1";
  44.           }
  45.         ]        
  46.       }
  47.       
  48.       starter_nls_list = explode(nls_language, "._");
  49.       starter_type = "ERROR";
  50.  
  51.       if (not(empty(starter_nls_list)))
  52.       {
  53.          
  54.          {temp = starter_language;}
  55.          ['unbound_variable : starter_language = first(starter_nls_list);
  56.          ]
  57. /* LMurphy - 09/12/95 - Language chosen is acutally English not American */
  58.      if (starter_language == "AMERICAN")
  59.         starter_language = "ENGLISH";
  60.          starter_nls_list = rest(starter_nls_list);
  61.  
  62.          if (not(empty(starter_nls_list)))
  63.          {
  64.             {temp = starter_territory;}
  65.             ['unbound_variable : starter_territory = first(starter_nls_list);
  66.             ]
  67.  
  68.             starter_nls_list = rest(starter_nls_list);
  69.  
  70.             if (not(empty(starter_nls_list)))
  71.                starter_charset = first(starter_nls_list);
  72.          }
  73.       }
  74.  
  75.      {temp = starter_charset;}
  76.             ['unbound_variable : starter_charset = "WE8ISO8859P1";
  77.             ]
  78.  
  79.  
  80.    mark
  81.    if (getnls == TRUE)
  82.    {
  83.       done = FALSE;
  84.       done = single_selection_dialog(instantiate(summary1_prompt), ynrprompt, yesr_prompt, summary1_content, instantiate(summary1_help));
  85.       if (done == no_prompt)
  86.     done = FALSE;
  87.       else
  88.         done = TRUE;
  89.  
  90.       while(not(done))
  91.       {
  92.      curr_dir = directory_name(current_script);
  93.      execute("%curr_dir%\setnls.stp");
  94.          mark
  95.          {
  96.         charset_specifier = list('label, charset_label, 'popdown, charset_list, 'default, starter_charset);
  97.      
  98.         starter_charset = first(multiple_text_dialog(instantiate(charset_prompt), list(charset_specifier), charset_content, instantiate(charset_help)));
  99.  
  100.         mark
  101.         {
  102.             done = single_selection_dialog(instantiate(summary2_prompt), ynprompt, yes_prompt, summary2_content, instantiate(summary2_help));
  103.             if (done == no_prompt)
  104.                 done = FALSE;
  105.             else
  106.                 done = TRUE;
  107.         }
  108.          }
  109.       }
  110.    }
  111.    }
  112. /* Only one starter database type for Windows 95, character sets not handled
  113.    by US7ASCII database have been removed as choices from charset_list */
  114.       starter_type = "US7ASCII";
  115. /*
  116.    if((starter_charset == "US7ASCII") ||
  117.       (starter_charset == "WE8DEC") || 
  118.       (starter_charset == "US8PC437") || 
  119.       (starter_charset == "WE8PC850") || 
  120.       (starter_charset == "D7DEC") || 
  121.       (starter_charset == "F7DEC") || 
  122.       (starter_charset == "S7DEC") || 
  123.       (starter_charset == "E7DEC") ||                 
  124.       (starter_charset == "SF7ASCII") ||              
  125.       (starter_charset == "NDK7DEC") ||               
  126.       (starter_charset == "I7DEC") ||                 
  127.       (starter_charset == "CH7DEC") ||                
  128.       (starter_charset == "SF7DEC") ||                
  129.       (starter_charset == "TR7DEC") ||                
  130.       (starter_charset == "WE8ISO8859P1") ||          
  131.       (starter_charset == "EE8ISO8859P2") ||          
  132.       (starter_charset == "SE8ISO8859P3") ||          
  133.       (starter_charset == "NEE8ISO8859P4") ||         
  134.       (starter_charset == "CL8ISO8859P5") ||          
  135.       (starter_charset == "AR8ISO8859P6") ||          
  136.       (starter_charset == "EL8ISO8859P7") ||          
  137.       (starter_charset == "IW8ISO8859P8") ||          
  138.       (starter_charset == "WE8ISO8859P9") ||          
  139.       (starter_charset == "NE8ISO8859P10") ||         
  140.       (starter_charset == "TR8ISO8859P9") ||         
  141.       (starter_charset == "TH8TISASCII") ||           
  142.       (starter_charset == "EL8DEC") ||                
  143.       (starter_charset == "TR8DEC") ||                
  144.       (starter_charset == "EEC8EUROPA3") ||           
  145.       (starter_charset == "LA8PASSPORT") ||           
  146.       (starter_charset == "BG8PC437S") ||             
  147.       (starter_charset == "EE8PC852") ||              
  148.       (starter_charset == "RU8PC866") ||              
  149.       (starter_charset == "RU8BESTA") ||              
  150.       (starter_charset == "IW8PC1507") ||             
  151.       (starter_charset == "RU8PC855") ||              
  152.       (starter_charset == "TR8PC857") ||              
  153.       (starter_charset == "CL8MACCYRILLIC") ||        
  154.       (starter_charset == "CL8MACCYRILLICS") ||       
  155.       (starter_charset == "WE8PC860") ||              
  156.       (starter_charset == "IS8PC861") ||              
  157.       (starter_charset == "EE8MACCES") ||             
  158.       (starter_charset == "EE8MACCROATIANS") ||       
  159.       (starter_charset == "TR8MACTURKISHS") ||        
  160.       (starter_charset == "EL8MACGREEKS") ||          
  161.       (starter_charset == "IW8MACHEBREWS") ||         
  162.       (starter_charset == "EE8MSWIN1250") ||          
  163.       (starter_charset == "CL8MSWIN1251") ||          
  164.       (starter_charset == "ET8MSWIN923") ||           
  165.       (starter_charset == "BG8MSWIN") ||              
  166.       (starter_charset == "EL8MSWIN1253") ||          
  167.       (starter_charset == "IW8MSWIN1255") ||          
  168.       (starter_charset == "LT8MSWIN921") ||           
  169.       (starter_charset == "TR8MSWIN1254") ||          
  170.       (starter_charset == "N8PC865") ||               
  171.       (starter_charset == "F7SIEMENS9780X") ||        
  172.       (starter_charset == "E7SIEMENS9780X") ||        
  173.       (starter_charset == "S7SIEMENS9780X") ||        
  174.       (starter_charset == "DK7SIEMENS9780X") ||       
  175.       (starter_charset == "N7SIEMENS9780X") ||        
  176.       (starter_charset == "I7SIEMENS9780X") ||        
  177.       (starter_charset == "D7SIEMENS9780X") ||        
  178.       (starter_charset == "WE8DG") ||                 
  179.       (starter_charset == "WE8NCR4970") ||            
  180.       (starter_charset == "WE8ROMAN8") ||             
  181.       (starter_charset == "EE8MACCE") ||              
  182.       (starter_charset == "EE8MACCROATIAN") ||        
  183.       (starter_charset == "TR8MACTURKISH") ||         
  184.       (starter_charset == "EL8MACGREEK") ||           
  185.       (starter_charset == "IW8MACHEBREW") ||          
  186.       (starter_charset == "WE8MACROMAN8") ||          
  187.       (starter_charset == "WE8MACROMAN8S") ||         
  188.       (starter_charset == "TH8MACTHAI") ||            
  189.       (starter_charset == "TH8MACTHAIS") ||           
  190.       (starter_charset == "HU8CWI2") ||               
  191.       (starter_charset == "LT8PC772") ||              
  192.       (starter_charset == "LT8PC774") ||              
  193.       (starter_charset == "CDN8PC863") ||             
  194.       (starter_charset == "HU8ABMOD") ||              
  195.       (starter_charset == "AR8ASMO8X") ||             
  196.       (starter_charset == "AR8NAFITHA711") ||         
  197.       (starter_charset == "AR8SAKHR707") ||           
  198.       (starter_charset == "AR8MUSSAD768") ||          
  199.       (starter_charset == "AR8ADOS710") ||            
  200.       (starter_charset == "AR8ADOS720") ||            
  201.       (starter_charset == "AR8APTEC715") ||           
  202.       (starter_charset == "AR8MSWIN1256") ||          
  203.       (starter_charset == "AR8NAFITHA721") ||         
  204.       (starter_charset == "AR8SAKHR706") ||           
  205.       (starter_charset == "AR8ARABICMAC") ||          
  206.       (starter_charset == "AR8ARABICMACS") ||         
  207.       (starter_charset == "JA16VMS") ||               
  208.       (starter_charset == "JA16EUC") ||               
  209.       (starter_charset == "JA16SJIS") ||              
  210.       (starter_charset == "JA16MACSJIS") ||           
  211.       (starter_charset == "KO16KSC5601") ||           
  212.       (starter_charset == "KO16KSCCS") ||             
  213.       (starter_charset == "ZHS16CGB231280") ||        
  214.       (starter_charset == "ZHT32EUC") ||              
  215.       (starter_charset == "ZHT32SOPS") ||             
  216.       (starter_charset == "ZHT16DBT") ||              
  217.       (starter_charset == "ZHT32TRIS") ||             
  218.       (starter_charset == "ZHT16BIG5") ||           
  219.       (starter_charset == "ZHT16CCDC") ||           
  220.       (starter_charset == "AL24UTFFSS") ||           
  221.       (starter_charset == "WE8HP") ||           
  222.       (starter_charset == "WE8NEXTSTEP") ||           
  223.       (starter_charset == "IS8MACICELANDICS") ||           
  224.       (starter_charset == "IS8MACICELANDIC"))          
  225.       starter_type = "US7ASCII";
  226.    else if((starter_charset == "EL8PC437S") ||
  227.       (starter_charset == "EL8PC737"))
  228.       starter_type = "EL8PC437S";
  229.    else
  230.       starter_type = "ERROR";
  231. */
  232. }
  233.